unit GControls;

interface

uses Classes, SysUtils, Windows, DXDraws, Dib;

type
  TGControl = class
    DXDraw:Pointer;
    Rect:TRect;
    Children:TList;
    procedure Render; virtual;
    procedure RenderSelf; virtual;
    procedure RenderChildren;
  end;

  TGButton = class(TGControl)
    Caption:String;
    Im:TDXDib;
    procedure RenderSelf; override;
  end;


implementation

procedure TGControl.Render;
begin
  RenderSelf;
  RenderChildren;
end;

procedure TGControl.RenderSelf;
begin
end;

procedure TGControl.RenderChildren;
begin
end;

procedure TGButton.RenderSelf;
begin

end;

end.
